home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / border.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  25 lines
  1. 10 POKE56,62:CLR:GOTO2015
  2. 15 V=53248:F=255:SYS58784
  3. 20 FORI=64TO511:POKE15872+I,F:NEXT
  4. 25 FORI=.TO7:POKE2040+I,248+I:NEXT
  5. 30 FORI=.TO62:READY:POKE15872+I,Y:NEXT
  6. 35 FORI=39TO46:POKEV+I,2:NEXT
  7. 40 FORI=1TO15STEP2:POKEV+I,250:NEXT
  8. 45 FORI=2TO14STEP2:POKEV+I,I*24-24ANDF:NEXT
  9. 50 POKEV+21,F:POKEV+29,254:POKEV+17,27:POKEV+18,248:POKEV+16,192:POKEV,160
  10. 55 POKEV+39,14:POKEV+32,2
  11. 60 SYS49152:PRINT"[147]";:LIST
  12. 65 DATA60,124,99,102,102,119,96,102,127
  13. 70 DATA96,124,107,96,102,99,102,102,99
  14. 75 DATA60,124,99,0,0,0,24,124,124,60
  15. 80 DATA102,102,102,102,102,126,124,124
  16. 85 DATA102,96,96,102,96,96,102,96,96
  17. 90 DATA0,0,0,51,51,51,204,204,204,51,51
  18. 95 DATA51,204,204,204,51,51,51
  19. 2015 PRINT"[147]ONE MOMENT PLEASE..."
  20. 2020 P=PEEK(45)+256*PEEK(46)-1
  21. 2025 IFPEEK(P)THENP=P-1:GOTO2025
  22. 2030 P=P-100
  23. 2035 FORI=.TO100:POKE49152+I,PEEK(P+I):NEXT
  24. 2040 POKE2063,48:GOTO15
  25.